home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Input 64
/
Input_64_87-02_1987_Verlag_Heinz_Weise_de.d64
/
lohnsteuer 86
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
26KB
|
720 lines
0 ifpeek(50307)=120thenpoke50257,0
10 rem *******************************
20 rem * lohn und einkommensteuer *
30 rem * von michael hanke *
40 rem * & heiko hondong *
60 rem *******************************
65 sa=7:rem sekundaeradresse drucker
66 ki=9:rem kirchensteuersatz 9 %
67 rem ki=8 fuer baden-wuerttemberg,bayern,bremen und hamburg
70 dima(44),b(24),c(30),d(10),e(10),f(26),y$(6),s(4),k(30),v(10)
80 printchr$(14):printchr$(8):tp=31:d$="[196][205] [146]"
90 poke53280,11:poke53281,11:poke649,1
100 print"[147][204][160][207][160][200][160][206][160]- [197][160][201][160][206][160][203][160][207][160][205][160][205][160][197] [206][160][211][160][212][160][197][160][213][160][197][160][210]";
110 print"f u e r "
115 print" "
120 print" 1 99999 88888 66666 "
130 print" 11 9 9 8 8 6 "
140 print" 1 1 9 9 8 8 6 "
150 print" 1 1 9 9 8 8 6 "
160 print" 1 99999 88888 66666 "
170 print" 1 9 8 8 6 6 "
180 print" 1 9 8 8 6 6 "
190 print" 1 9 8 8 6 6 "
200 print" 1 99999 88888 66666 "
201 print" "
202 print"(1) _ [194]erechnung der [202]ahressteuer 1986"
204 print"(2) _ [197]inkommensteuertabelle 1986"
210 geta$:a=val(a$):ifa>2ora=0then210
215 onagoto230,5000
230 print"[147] [200]inweise zu den [197]ingaben ! "
240 print"[199]rundsaetzlich sind immer nur volle[146] [196][205] -[194]etraege einzugeben !"
250 print"[196]ie [197]ingaben sind mit der [210]eturn-[212]aste[146] abzuschliessen, ";
260 print"[193]usnahmen sind (j/n) -"
270 print"[193]bfragen. [198]alscheingaben koennen durch"
280 print"[201][206][211][212]/[196][197][204][146] korrigiert werden."
290 print" 0 [146] [196][205]-[197]ingaben oder nicht zutreffende [193]bfragen koennen durch ";
300 print" [196]ruecken der [210]eturn-[212]aste[146] beantwortet werden."
305 print"----> [211][208][193][195][197]";
310 gosub3370
320 s$="[211]teuerpflichtigen":e$="[197]hefrau":r$="[210]eligion":g$="[199]eburtsdatum"
330 k$="katholisch":v$="evangelisch":l$="ledig":h$="verheiratet"
340 az$="[193]ngaben laut [218]eilen [206]r.":an$="[193]us [193]nlage [206] fuer":ki$="[203]irchensteuer"
350 print"[147] [193]llgemeine [193]ngaben ":a(1)=0
360 print"[198]amilienstand des"
370 print""+s$+": ([214]) = "+h$
380 print"([204]) = "+l$
390 gety$:ify$=""then390
400 ify$="v"thenprint"[145][145] "+h$+"[146] ":goto430
410 ify$="l"thenprint"[145][145] "+l$+"[146] ":a(1)=1:goto430
420 goto390
430 print" "
440 printg$+" des ([212][212][205][205][202][202])"
450 print""+s$+": . . [146]":gosub3390:ifa<220102thena(2)=1
460 ifa(1)=1then480
470 print""+e$+" : . . [146]":gosub3390:ifa<220102thenb(2)=1
480 print""+r$+" des ( 0 / [197] / [203] )"
490 print""+s$+":":gosub3500:ify$="k"thena(3)=2
500 ify$="e"thena(3)=1
510 ifa(1)=1then550
520 print""+e$+" :":gosub3500
530 ify$="k"thenb(3)=2
540 ify$="e"thenb(3)=1
550 print"[218]ahl der [203]inder :"
560 gety$:ify$=""theny$="*"
570 ify$=chr$(13)theny$="0"
580 ifasc(y$)<48orasc(y$)>57then560
590 print"[145]";y$:a(4)=val(y$)
600 gosub3540:ifa$="n"then350
610 print"[147] [193]ngaben zum [193]rbeitslohn "
620 print""+an$+" den "+s$:b(0)=0:gosub700:gosub2390:ifa(1)then1670
630 print"[147] [193]ngaben in [193]nlage [206] fuer die "+e$+" ? "
640 print" (j/n) ?":gosub3550:ifa$="j"then670
650 print"[145] keine ":gosub3540
660 ifa$="n"then630
665 goto1670
670 print"[147] [193]ngaben zum [193]rbeitslohn "
680 print""+an$+" die "+e$:b(0)=1:ae=1
690 gosub700:gosub2390:goto1670
700 gosub850:gosub1120
710 print"[147] [215]erbungskosten allgemein [146]"
720 print"[193]ngaben in [218]eile 45 - 48 ? (j/n)":gosub3550
730 ifa$="j"thengosub1400:goto750
740 print"[145]: keine":gosub3540:ifa$="n"then710
750 print"[147] [205]ehraufwendungen fuer [214]erpflegung "
760 print"[194]etraege in [218]eile 49 - 54 ? (j/n)":gosub3550
770 ifa$="j"thengosub1480:goto790
780 print"[145]: keine":gosub3540:ifa$="n"then750
790 print"[147] [205]ehraufwendungen ":print" fuer doppelte [200]aushaltsfuehrung "
800 print"[193]ngaben in [218]eile 55 - 63 ? (j/n)":gosub3550
810 ifa$="j"thengosub1570:goto830
820 print"[145]: keine":gosub3540:ifa$="n"then790
830 f(22)=f(17)+f(19)+f(20)+f(21):iff(22)<564thenf(22)=564
840 return
850 x$="[194]ruttoarbeitslohn":tp$="":tp=31
860 print""+x$+" "+d$
870 gosub3570:f(5)=y:gosub3770
880 x$="[204]ohnsteuer":print""+x$+" "+d$:gosub3570
890 f(6)=y :gosub3770:x$=ki$
900 onb(0)+1goto910,920
910 ona(3)+1goto960,930,950
920 onb(3)+1goto960,930,950
930 print""+x$+" (ev) "+d$:gosub3570:f(7)=y:gosub3770
940 goto960
950 print""+x$+" (rk) "+d$:gosub3570:f(7)=y :gosub3770
960 print"[194]etraege in [218]eile 7 -15 (j/n) ?":gosub3550
970 ifa$="n"thenprint"[145] keine [146]":goto1082
980 x$="[211]umme der [218]eilen 7 - 9 "+d$:print"[145]"+x$:gosub3570
990 gosub3770:ify=0then1010
1000 f(8)=y
1010 x$="[211]umme der [218]eilen 10-12 "+d$
1020 print""+x$:gosub3570:gosub3770:f(9)=y
1030 print"[211]umme der [218]eile 13 "+d$
1040 gosub3570:gosub3770:ify=0then1060
1050 f(10)=y
1060 print"[211]umme der [218]eilen 14+15 "+d$
1070 gosub3570:gosub3770:ify =0then1082
1080 f(12)=y
1082 print"[214]ersorgungsbezuege im [194]rutto enthalten"
1083 print"[194]etraege lt. [218]eile 23 "+d$
1084 gosub3570:gosub3770:ify=0then1090
1086 f(11)=y:
1090 f(13)=0:print"[193]ngaben in [218]eile 31 - 36 (j/n) ?":gosub3550
1092 ifa$="n"thenb$=" keine ":goto1096
1094 b$=" ja "::f(13)=1
1096 print"[145] "+b$
1098 gosub3540:ifa$="n"thenfori=5to13:f(i)=0:next:ifb(0)=1then670
1100 ifa$="n"then610
1110 return
1120 print"[147] [215]erbungskosten "
1130 print"[198]ahrten zw. [215]ohnung und [193]rbeitsstaette"
1140 print" [208][203][215](1) [205][207][212](2) [205][207][198](3) [198][193][200](4)":gosub3700:a=val(a$)
1150 ifa=0then1300
1160 onagoto1170,1180,1190,1200:goto1260
1170 f=.36:w$="[208][203][215]":goto1210
1180 f=.16:w$="[205][207][212]":goto1210
1190 f=.22:w$="[205][207][198]":goto1210
1200 f=.12:w$="[198][193][200]"
1210 print""+w$+"[146] benutzt an [212]agen [146]"
1220 gosub3570:gosub3770:f(14)=y
1230 iff(14)>365then:print"[145][145][145]":goto1210
1240 print"[197]infache [197]ntfernung [146]":gosub3570:gosub3770:f(15)=y
1250 iff(15)>999then:print"[145][145][145]":goto1240
1260 f(16)=f*f(14)*f(15):f(17)=f(17)+f(16)
1270 ifx<2thenprint"weitere [193]rbeitsstaetten (j/n)?":gosub3550
1280 ifa$="j"thenprint"[145][145][145]":x=x+1:goto1140
1290 ifa$="n"thenprint"[145]: keine"
1300 gosub3540:ifa$="n"thenf(14)=0:f(15)=0:x=0:f(17)=0:goto1120
1310 print"[147] [215]erbungskosten ":x$="[207]effentliche [214]erkehrsmittel"
1320 print""+x$:print"[193]ufwendungen : "+d$:gosub3570
1330 gosub3770
1340 f(16)=y
1350 print"vom [193]rbeitgeber"
1360 print"steuerfrei ersetzt : "+d$:gosub3570:gosub3770
1370 f(18)=y
1380 gosub3540:ifa$="n"thenf(16)=0:f(18)=0:goto1310
1385 f(17)=f(17)+f(16)-f(18)
1390 return
1400 x$="[194]etraege aus [218]eile "
1410 print"[145]"+x$+"45: "+d$:gosub3570:gosub3770:f(19)=y
1420 print""+x$+"46: "+d$:gosub3570:gosub3770:f(19)=f(19)+y
1430 print""+x$+"47: "+d$:gosub3570:gosub3770:f(19)=f(19)+y
1440 print""+x$+"48: "+d$:gosub3570:gosub3770:f(19)=f(19)+y
1450 print"[211]umme in [198]eld 77 = [196][205]":y=f(19):gosub3770
1460 gosub3540:ifa$="n"then710
1470 return
1480 x$="[194]etraege aus [218]eile "
1490 print"[145]"+x$+"50: "+d$:gosub3570:gosub3770:f(20)=y
1500 print""+x$+"52: "+d$:gosub3570:gosub3770:f(20)=f(20)+y
1510 print""+x$+"53: "+d$:gosub3570:gosub3770:f(20)=f(20)+y
1520 print"steuerfrei ersetzt : "+d$:gosub3570:gosub3770
1530 f(22)=f(20)-y
1540 print"[211]umme in [198]eld 76 = [196][205]":y=f(22):gosub3770
1550 gosub3540:ifa$="n"then750
1560 return
1570 x$="[194]etraege aus [218]eile "
1580 print"[145]"+x$+"58: "+d$:gosub3570:gosub3770:f(21)=y
1590 print""+x$+"59: "+d$:gosub3570:gosub3770:f(21)=f(21)+y
1600 print""+x$+"60: "+d$:gosub3570:gosub3770:f(21)=f(21)+y
1610 print""+x$+"61: "+d$:gosub3570:gosub3770:f(21)=f(21)+y
1620 print"steuerfrei ersetzt : "+d$:gosub3570:gosub3770
1630 f(21)=f(21)-y
1640 print"[211]umme in [198]eld 75 = [196][205]":y=f(21):gosub3770
1650 gosub3540:ifa$="n"then790
1660 return
1670 print"[147] [200]atten [211]ie [197]inkuenfte im [203]alenderjahr [146]";
1672 print" 1 9 8 6 "
1673 print" aus"
1674 print"[214]ermietung und [214]erpachtung..([193]nlage [214] )[146]";
1676 print" oder"
1678 print"[203]apitalvermoegen............([193]nlage [203][211][207])[146]";
1679 print" oder"
1680 print"[199]ewerbebetr./[211]elbst.[193]rbeit..([193]nlage [199][211][197])[146]";
1682 print" (j/n)?"
1690 gosub3550:ifa$="n"thenprint"[145]keine ":goto1760
1700 print"[147][145][211]etzen [211]ie die [211]ummen ein,die [211]ie aus den [193]nlagen ermittelt haben."
1710 print"[194]ei negativen [197]inkuenften das - [218]eichen "
1720 print"vor der [197]ingabe nicht vergessen!"
1730 print"[211]umme aus [193]nlage [214] : "+d$
1740 gosub3570:ifm=1theny=y*-1
1750 gosub3770:v=y
1752 print"[211]umme aus [193]nlage [203][211][207]: "+d$:gosub3570:ifm=1theny=y*-1
1754 gosub3770:ks=y:ks=ks-400:ifa(1)=0thenks=ks-400
1755 ifks<0thenks=0
1756 print"[211]umme aus [193]nlage [199][211][197]: "+d$:gosub3570:ifm=1theny=y*-1
1758 gosub3770:gs=y
1760 gosub3540:ifa$="n"then1670
1765 ifa(13)+b(13)=2ora(13)=1andae=0then1920
1770 print"[147] [211]onderausgaben ":x$="[211]ozialversicherung ":tp=33:tp$=""
1775 ifa(13)=1then1805
1780 print""+x$+"des [211]teuerpflichtigen"
1790 print"nur [193]rbeitnehmer[146]anteil: "+d$:gosub3570:gosub3770
1800 a(23)=y:ifa(1)then1840
1805 ifb(13)=1orae=0then1835
1810 print""+x$+"der [197]hefrau"
1820 print"nur [193]rbeitnehmer[146]anteil: "+d$:gosub3570:gosub3770
1830 a(24)=y
1835 ifa(13)=1then1875
1840 x$="[210]entenversicherung "
1850 print""+x$+"des [211]teuerpflichtigen"
1860 print"nur [193]rbeitgeber[146]anteil : "+d$:gosub3570:gosub3770
1870 a(25)=y:ifa(1)then1910
1875 ifb(13)=1orae=0then1910
1880 print""+x$+"der [197]hefrau"
1890 print"nur [193]rbeitgeber[146]anteil : "+d$:gosub3570:gosub3770
1900 a(26)=y
1910 gosub3540:ifa$="n"then1770
1920 print"[147] [211]onderausgaben ":print"in 1986 in 1986"
1930 print"gezahlt: erstattet:"
1940 print"[198]reiw. [214]ers.: "+d$:tp=24:tp$="[157][157][157][157][157][157]":gosub3570
1950 gosub3770:a(27)=y
1960 printtab(29);"[145]"+d$:tp$="":tp=37:gosub3570:gosub3770
1970 a(27)=a(27)-y
1980 print"[203]rankenvers.: "+d$:tp=24:tp$="[157][157][157][157][157][157]":gosub3570
1990 gosub3770:a(28)=y
2000 printtab(29);"[145]"+d$:tp$="":tp=37:gosub3570:gosub3770
2010 a(28)=a(28)-y
2020 print"[213]nfallvers. : "+d$:tp=24:tp$="[157][157][157][157][157][157]":gosub3570
2030 gosub3770:a(29)=y
2040 printtab(29);"[145]"+d$:tp$="":tp=37:gosub3570:gosub3770
2050 a(29)=a(29)-y
2060 print"[204]ebensvers. : "+d$:tp=24:tp$="[157][157][157][157][157][157]":gosub3570
2070 gosub3770:a(30)=y
2080 printtab(29);"[145]"+d$:tp$="":tp=37:gosub3570:gosub3770
2090 a(30)=a(30)-y
2100 print"[200]aftpflicht : "+d$:tp=24:tp$="[157][157][157][157][157][157]":gosub3570
2110 gosub3770:a(31)=y
2120 printtab(29);"[145]"+d$:tp$="":tp=37:gosub3570:gosub3770
2130 a(31)=a(31)-y:gosub3540:ifa$="n"then1920
2140 b(1)=a(27)+a(28)+a(29)+a(30)+a(31):tp=33:tp$=""
2150 print"[147] [211]onderausgaben ":print"[194]ausparkasse [194]eitraege: "+d$
2160 gosub3570:gosub3770:a(32)=y
2170 print"[203]irchensteuer gezahlt : "+d$:gosub3570:gosub3770:a(33)=y
2180 print"in 1986 erstattet : "+d$:gosub3570:gosub3770
2190 a(41)=y:a(33)=a(33)-a(41)
2200 print"[211]teuerberatungskosten : "+d$:gosub3570:gosub3770:a(34)=y
2210 print"[194]erufsausbildung : "+d$:gosub3570:gosub3770:a(35)=y
2220 print"[211]penden ([218]eile 81-83) : "+d$:gosub3570:gosub3770:a(36)=y
2230 print"weitere [211]onderausgaben: "+d$:gosub3570:gosub3770:a(42)=y
2232 print" [193]ussergewoehnliche [194]elastungen "
2234 print"[193]ngaben in [218]eile 86 - 117 : (j/n)":gosub3550
2236 ifa$="n"thenprint"[145]keine":so=0:goto2240
2238 print"[145] [202]a ":so=1
2240 gosub3540:ifa$="n"then2150
2245 ifso=1thengosub6000
2250 goto2470
2260 ifa(0)=0thene=e/2
2270 e=int(e/54)*54
2280 ife<=4537thensx=0:goto2360
2290 ife>=18036then2310
2300 sx=int(.22*e-998):goto2360
2310 ife>=80028then2330
2320 a=(e-18000)/10000:sx=int((((2.1*a-56.02)*a+600)*a+2200)*a+2962):goto2360
2330 ife>=130032then2350
2340 a=(e-80000)/10000:sx=int((42*a+5180)*a+29417):goto2360
2350 sx=int(.56*e-16433)
2360 ifsx<0thensx=0
2370 ifa(0)=0thensx=sx*2
2380 return
2390 fori=5to22:gosub2420
2400 next
2410 return
2420 ifb(0)then2440
2430 a(i)=f(i):f(i)=0:goto2450
2440 b(i)=f(i):f(i)=0
2450 return
2460 :
2470 gosub3860
2480 x$=" [204]ohnsteuerausgleich ":y$="[204]ohnsteuer"
2490 iff(1)thenx$="[197]inkommensteuerveranlagung":y$="[197]inkommensteuer"
2500 tx=36:ifdr=1thentx=6
2510 print"[147]"+x$
2520 print:print"[198]estsetzung der "+y$
2530 print:print:print"in 1986 gezahlte [211]teuern [196][205] ";:y=f(6):gosub3830
2540 print:print"fuer 1986 festgesetzt [196][205] ";:y=et:gosub3830
2550 print:print"verbleibende [194]etraege [196][205] ";:y=f(6)-et:gosub3830
2560 ifa(7)+b(7)=0ande(5)=0then2600
2570 print:print"[203]irchensteuer gezahlt [196][205] ";:y=a(7)+b(7):gosub3830
2580 print:print"[203]irchensteuer festgesetzt 9% [196][205] ";:y=e(5):gosub3830
2590 print:print"verbleibende [194]etraege [196][205] ";:y=(a(7)+b(7))-e(5):gosub3830
2600 iff(2)<=0thenf(2)=0:goto2620
2610 print:print"[210]ueckzahlung [211]parzulage [196][205] ";:y=f(2):gosub3830
2620 print"========================================"
2630 y=(f(6)-et)+(a(7)+b(7))-e(5)-f(2)
2640 x$="[210]estguthaben":ify<0thenx$="[206]achzahlung "
2650 print""+x$+"[146] [196][205] ";:gosub3830
2660 ifhk=1thenprint#4:close4:hk=0:goto2700
2670 ifdr=1thenopen4,ga,sa:cmd4:hk=1:goto2480
2680 print" (+) weiter ";
2690 geta$:ifa$<>"+"then2690
2700 print"[147] [194]erechnung "
2710 x$="[197]hemann [197]hefrau":ifa(1)=1thenx$="[211]teuerpflichtiger"
2720 tp=26:tx=36:ifdr=1thentx=6:tp=6
2730 print:print" "+x$
2740 print:print"[194]ruttoarbeitslohn [196][205]";:y=a(5):gosub3800:ifa(1)thenprint
2750 ifa(1)=0theny=b(5):gosub3830
2760 print:print"ab [198]reibetraege [196][205]";:y=1080+f(25):gosub3800:ifa(1)thenprint
2770 ifa(1)=0theny=1080+f(26):gosub3830
2780 print:print"ab [215]erbungskosten [196][205]";:y=a(22):gosub3800:ifa(1)thenprint
2790 ifa(1)=0theny=b(22):gosub3830
2800 print:print"[197]inkuenfte [196][205]";:y=a(5)-1080-a(22)-f(25):ify<0theny=0
2810 gosub3800:ifa(1)thenprint:goto2840
2820 y=b(5)-1080-b(22)-f(26):ify<0theny=0
2830 gosub3830
2840 print:print"[146]=============================";:ifa(1)=0thenprint"========="
2850 print:print"[193]nlagen [214]/[199][211][197]/[203][211][207] [196][205]";:y=v+ks+gs:gosub3800
2855 ifeb=0andef=0then2870
2860 print:print:print"[193]ltersentl. [194]etr. [196][205]";:y=eb*-1:gosub3800:ifb(2)=0thenprint
2865 ifb(2)theny=ef*-1:gosub3830
2870 print:print:print"[211]umme der [197]ink. [196][205]";:y=c(2)+an-eb:ify<0theny=0
2880 gosub3800:ifa(1)thenprint:goto2910
2890 y=d(2)-ef:ify<0theny=0
2900 gosub3830
2910 ifhk=1thenprint#4:close4:hk=0:goto2960
2920 ifdr=1thenopen4,ga,sa:cmd4:print:print:print:hk=1:goto2700
2930 :
2940 gosub3740
2950 ifa$="-"then2480
2960 print"[147] [194]erechnung [146] ([197]nde)":tx=36:ifdr=1thentx=6
2970 print:print"[199]esamtbetrag der [197]inkuenfte [196][205]";:y=c(3):ify<0theny=0
2980 gosub3830
2985 :
2990 print:print"[211]onderausgaben (abziehbar) [196][205]";:y=c(4):gosub3830
2995 :
3000 :
3010 ifa(43)+k(30)=0then3080
3020 print:print"[193]ussergewoehnl. [194]elastungen:"
3030 print:print"[193]ufwendungen [196][205]";:y=a(43)+k(30):tx=23:ifdr=1thentx=6
3040 gosub3830
3050 print:print"abziehbar nach [193]bzug [196][205]";:y=a(44)+k(30)
3060 tx=36:ifdr=1thentx=6
3070 gosub3830
3080 print:print"[214]ersicherungsbeitraege:"
3090 print:print"gezahlt [196][205]";:y=c(6):tx=23:ifdr=1thentx=6
3100 gosub3830
3110 print:print"abziehbar [196][205]";:y=b(24):tx=36:ifdr=1thentx=6
3120 gosub3830
3122 iffb>0thenprint:print"ab [211]umme der [198]reibetraege [196][205]";:y=fb:gosub3830
3124 :
3130 print"======================================="
3140 print:print"[218]u versteuerndes [197]inkommen [196][205]";:y=c(0):ifc(0)<0theny=0
3150 gosub3830
3160 ifhk=1thenprint#4:close4:hk=0:goto3190
3170 ifdr=1thenopen4,ga,sa:cmd4:hk=1:print:print:print:goto2960
3180 gosub3740:ifa$="-"then2700
3190 fora=1to3:y$(a)="":next:b=0
3195 print"[147] [204]ohn- und [197]inkommensteuer 1986 "
3200 printy$(1)+"(1).........[206]eue [194]erechnung"
3210 printy$(2)+"(2)......[193]usgabe [194]ildschirm"
3212 ifpeek(50307)=120then3220
3215 printy$(3)+"(3).....[193]usgabe auf [196]rucker"
3220 geta$:a=val(a$):ifa>0anda<4thenb=a
3225 ifa$=chr$(13)then3240
3230 fora=1to3:y$(a)="":next:y$(b)="":goto3200
3240 onbgoto3250,3252,3254
3250 run
3252 dr=0:goto2480
3254 ifpeek(50307)<>120then3270
3260 goto3200
3270 ga=4:goto3320
3280 geta$
3290 ifa$=chr$(13)then3330
3300 ge=val(a$):ifge>3andge<7thenga=ge:goto3320
3320 print"[196]ruckeradresse :";ga:goto3280
3330 open4,ga,sa:close4
3340 ifst=-128then3360
3350 dr=1:goto2480
3360 print"[196]rucker einschalten !":fora=0to1000:next:goto3190
3370 geta$:ifa$<>" "then3370
3380 return
3390 gosub3480:fori=1to6
3400 gety$(i):ify$(i)=""theny$(i)="*"
3410 ify$(i)=chr$(20)then3490
3420 ifasc(y$(i))<48orasc(y$(i))>57then3400
3430 print"[145]";y$(1)y$(2);".";y$(3)y$(4);".";y$(5)y$(6):next
3440 geta$:ifa$=chr$(13)then3470
3450 ifa$=chr$(20)then3490
3460 goto3440
3470 a=val(y$(5)+y$(6)+y$(3)+y$(4)+y$(1)+y$(2)):return
3480 fori=1to6:y$(i)=" ":next:return
3490 print"[145] . . ":goto3390
3500 gety$:ify$="k"thenprint"[145]";k$:return
3510 ify$="e"thenprint"[145]";v$:return
3520 ify$="0"ory$=chr$(13)thenprint"[145]keine":return
3530 goto3500
3540 print" alles richtig ? (j/n) ";
3550 geta$:ifa$="j"ora$="n"thenreturn
3560 goto3550
3570 gosub3480:fori=1to6
3580 gety$(i):ify$(i)=""theny$(i)="*"
3590 ify$(i)=chr$(13)then3670
3600 ify$(i)=chr$(20)thengosub3690:goto3570
3610 m=0:ifi=1andy$(1)="-"thenm=1:goto3630
3620 ifasc(y$(i))<48orasc(y$(i))>57then3580
3630 print"[145]"+tp$;y$(1)y$(2)y$(3)y$(4)y$(5)y$(6):next
3640 geta$:ifa$=chr$(13)then3670
3650 ifa$=chr$(20)thengosub3690:goto3570
3660 goto3640
3670 y$=y$(1)+y$(2)+y$(3)+y$(4)+y$(5)+y$(6):y=val(y$)
3680 print"[145]"+tp$+" ":return
3690 print"[145]"+tp$+" ":return
3700 geta$:ifa$=""then3700
3710 ifa$=chr$(13)thenreturn
3720 ifval(a$)=0orval(a$)>4then3700
3730 return
3740 print" (+) weiter (-) zurueck ";
3750 geta$:ifa$="+"ora$="-"thenreturn
3760 goto3750
3770 yf=abs(y):y=int(y+.5):print"[145]";
3780 printtab(int(log(yf-(yf=0))*.43429448188)*(yf>=1)+int(-yf)*(yf<1)+tp);y
3790 return
3800 yf=abs(y):y=int(y+.5):ifdr=0thenprint"";
3810 printtab(int(log(yf-(yf=0))*.43429448188)*(yf>=1)+int(-yf)*(yf<1)+tp);y;
3820 return
3830 yf=abs(y):y=int(y+.5):ifdr=0thenprint"";
3840 printtab(int(log(yf-(yf=0))*.43429448188)*(yf>=1)+int(-yf)*(yf<1)+tx);y
3850 return
3860 print"[147][194]erechnung !"
3862 ifa(2)=1thenfb=fb+720
3864 ifb(2)=1thenfb=fb+720
3866 ifa(4)>0thenfb=fb+(a(4)*2484)
3868 ifa(1)=1anda(4)>0thenfb=fb+4536
3870 f(25)=a(11)*.4:iff(25)>4800thenf(25)=4800
3872 f(26)=b(11)*.4:iff(26)>4800thenf(26)=4800
3878 c(1)=a(5)-f(25)-600:c(2)=c(1)-480-a(22)
3880 ifa(1)=0thend(1)=b(5)-f(26)-600:d(2)=d(1)-480-b(22)
3890 ifd(2)<0thend(2)=0
3900 ifc(2)<0thenc(2)=0
3902 an=v+ks+gs:ifan>0thenpe=an
3904 ifa(2)theneb=a(5)-a(11)+pe:ifeb<0theneb=0
3906 eb=eb*.4:ifeb>3000theneb=3000
3908 ifb(2)thenef=b(5)-b(11)+pe:ifef<0thenef=0
3909 ef=ef*.4:ifef>3000thenef=3000
3910 c(3)=c(2)+d(2)+an-eb-ef:c(4)=a(33)+a(34)+a(35)+a(36)+a(42):gosub4550
3920 ifa(1)=1then3940
3930 ifc(4)<540thenc(4)=540
3940 ifc(4)<270thenc(4)=270
3950 c(5)=c(3)-c(4):c(7)=6000:ifa(1)=1thenc(7)=3000
3960 c(6)=a(23)+a(24)+a(27)+a(28)+a(29)+a(30)+a(31)
3962 ifa(13)=1thena(25)=c(1)*.09:ifc(1)>67200thena(25)=6048
3964 ifb(13)=1thena(26)=d(1)*.09:ifd(1)>67200thena(26)=6048
3970 c(8)=c(7)-a(25)-a(26):ifc(8)<0thenc(8)=0
3980 c(9)=c(6)-c(8):ifc(9)<0thenc(9)=0
3990 c(10)=c(6):ifc(8)<c(6)thenc(10)=c(8)
4000 c(11)=c(9)+a(32):b(0)=2340
4010 ifa(1)=0thenb(0)=4680
4020 c(12)=b(0):ifc(11)<b(0)thenc(12)=c(11)
4030 c(13)=c(11)/2-b(0)/2:ifc(13)<0thenc(13)=0
4035 c(14)=b(0)/2:ifc(14)<0thenc(14)=0
4040 ifc(14)>c(13)thenc(14)=c(13)
4050 c(15)=c(10)+c(12)+c(14):c(16)=c(1)
4055 pb=a(13)+b(13):b(0)=2340:x=b(0)/2:ifpb=1thenb(0)=1000:x=b(0)
4056 ifa(1)=0thenb(0)=4680:x=b(0)/2
4058 ifa(1)=0andpb=2thenb(0)=2000:x=b(0)
4059 ifa(1)=0andpb=1andae=0thenb(0)=2000:x=b(0)
4060 b(4)=d(1)
4070 c(16)=c(16)+b(4):ifa(1)=0andpb=1andae=1thengosub4700:goto4140
4080 c(17)=int(c(16)*0.09):c(18)=c(17):ifc(17)>b(0)thenc(18)=b(0)
4090 c(19)=c(17):ifc(17)>xthenc(19)=x
4100 b(23)=c(18)+c(19)
4110 c(20)=int(b(23)/54)*54:ifa(1)=1then4130
4120 ifc(20)<600thenc(20)=600
4130 ifc(20)<300thenc(20)=300
4140 b(24)=c(15):ifc(15)<c(20)thenb(24)=c(20)
4150 c(0)=c(5)-b(24):ifa(2)=1thenc(0)=c(0)-720
4160 ifb(2)=1thenc(0)=c(0)-720
4170 ifa(1)=1anda(4)>0thenc(0)=c(0)-4536
4180 c(0)=c(0)-(a(4)*2484)-a(44)-k(30)
4190 ifa(1)=1andc(0)>(24000+a(4)*900)thenf(1)=1
4200 ifa(1)=0andc(0)>(48000+a(4)*1800)thenf(1)=1
4210 e=c(0)+a(12)+b(12):a(0)=a(1):gosub2260
4220 et=sx*(c(0)/(c(0)+a(12)+b(12))):f(6)=a(6)+b(6)
4230 e(2)=a(10)+b(10):f(2)=e(2):ife(2)=0orf(1)=1then4390
4240 ifa(9)>936thena(9)=936
4250 e(1)=23:ifa(4)>2thene(1)=33
4260 e(3)=int(a(9)*e(1)+0.5)/100+e(3)
4270 ifa(1)=1then4300
4280 ifb(9)>936thenb(9)=936
4290 e(3)=int(b(9)*e(1)+0.5)/100+e(3)
4300 ifa(8)>936thena(8)=936
4310 f(8)=a(8)-a(9):e(1)=16:ifa(4)>2thene(1)=26
4320 iff(8)<0thenf(8)=0
4330 e(3)=int(f(8)*e(1)+0.5)/100+e(3)
4340 ifa(1)=1then4380
4350 ifb(8)>936thenb(8)=936
4360 f(8)=b(8)-b(9):e(3)=int(b(8)*e(1)+0.5)/100+e(3)
4370 iff(8)<0thenf(8)=0
4380 f(2)=e(2)-e(3):iff(2)<0thenf(2)=0
4390 ifb(3)=0anda(3)=0then4550
4400 ifa(3)<>0andb(3)<>0thene(4)=et:goto4490
4410 ifa(3)=0then4460
4420 e=c(2):a(0)=1:gosub2260
4430 e(4)=sx:ifa(1)=1thene(4)=et:goto4490
4440 e=d(2):gosub2260
4450 e(4)=et*e(4)/(sx+e(4)):goto4490
4460 e=c(2):a(0)=1:gosub2260
4470 e(4)=sx:e=d(2):gosub2260
4480 e(4)=et*sx/(sx+e(4))
4490 ifa(4)=0then4530
4500 e(4)=e(4)-(600*a(4))
4530 ife(4)<0thenf(4)=0
4540 e(5)=int(e(4)*ki)/100:ife(5)<7.2thene(5)=7
4550 e(8)=4:ifa(1)thene(8)=5
4560 ifa(1)=1anda(4)>0thene(8)=5
4570 ifc(3)>100000thene(8)=e(8)+1
4580 ifc(3)>30000thene(8)=e(8)+1
4590 ifa(4)>0anda(4)<3thene(8)=e(8)-2
4600 ifa(4)=>3thene(8)=e(8)-4
4610 ife(8)<=0thene(8)=1
4620 e(7)=c(3)*e(8)/100:a(44)=a(43)-e(7):ifa(44)<0thena(44)=0
4625 :
4630 return
4700 c(17)=c(1)*.18:c(18)=d(1)*.18:ifc(18)>2000thenc(18)=2000
4710 c(19)=c(17)+c(18):c(20)=c(19):ifc(19)>7020thenc(20)=7020
4720 c(20)=int(c(20)/54)*54:ifc(20)<600thenc(20)=600
4730 return
5000 print"[147] [202]ahres - [197]inkommensteuertabelle 1986 [146]";:tp=37:tp$=""
5010 print"[218]u versteuerndes [197]inkommen : "+d$:gosub 3570:gosub 3770
5015 ek=y:e=ek
5020 print"[202]ahressteuer [199]rundtabelle : [196][205] "
5030 a(0)=1:gosub2260:y=sx:s(1)=sx:gosub 3770
5040 print"[202]ahressteuer [211]plittingtab. : [196][205] ":e=ek:a(0)=0:gosub 2260:s(2)=sx
5045 ifek=0thenek=1
5050 y=sx:gosub 3770
5052 print"[211]teuersatz [199]rundtabelle : % [145]":y=int(((s(1)/ek)*100)*100)/100
5054 tp=34:yf=y:gosub3780
5056 print"[211]teuersatz [211]plittingtab. : % [145]"
5058 y=int(((s(2)/ek)*100)*100)/100:yf=y:gosub3780:tp=37
5060 print" [211]teuervorteil durch [193]bschreibung [146] ";
5070 print"[193]bschreibungsbetrag : "+d$:gosub3570
5080 gosub3770:ab=y:ek=ek-ab:a(0)=1:e=ek:gosub2260:s(3)=s(1)-sx
5090 print"[211]teuervorteil [199]rundtabelle : [196][205] ":y=s(3):gosub3770
5100 :
5110 a(0)=0:e=ek:gosub2260:s(4)=s(2)-sx
5120 print"[211]teuervorteil [211]plittingtab.: [196][205] ":y=s(4):gosub3770
5130 print" [206]eue [194]erechnung (j/n) ? [146]";:gosub3550
5140 ifa$="j"then5000
5150 print"[147]":clr:goto70
5900 print"[147] [193]ussergewoehnliche [194]elastungen [146]";:return
5950 print"[145] keine [146]";:return
6000 zn$="88":tp$="":tp=35
6005 gosub5900:ifzn$="89"thenz=1:goto6030
6010 print"[193]ngaben in [218]eile 86 - 89 ....... (j/n) ?";:gosub3550
6015 ifa$="j"then6030
6020 gosub5950:gosub3540
6025 ifa$="n"then6005
6027 goto6400
6030 print"[203]oerperbehinderte und [200]interbliebene ";
6040 print"[193]ngaben zur betroffenen [208]erson [218]eile "+zn$+" ":a$="[146]"
6050 print"[200]interbliebener ...............(j/n) _"
6060 print"[203]oerperbehinderter ............(j/n)"
6070 print"blind/staendig pflegebed. .....(j/n)"
6080 print"geh-und stehbehindert .........(j/n)":print""
6100 fora=1to4
6110 geta$:ifa$="j"ora$="n"then6120
6115 goto6110
6120 jn$=" nein ":ifa$="j"thenk(a)=1:jn$=" ja "
6130 print ""+jn$+"[146] [157]_[145]":next
6140 printtab(37)" "
6150 ifk(2)=1ork(4)=1then6160
6155 goto6190
6160 print"[197]rwerbsminderung in v.[200]. ..... [146] %":gosub3570:gosub3770
6170 ify>100theny=0:print"[145][145][145]":goto6160
6180 k(5)=y:ifzthenz=0:goto6220
6190 ifz=1then6220
6200 print"weitere betroffene [208]erson ......(j/n)":gosub3550
6210 jn$=" nein [146]":ifa$="j"thenjn$=" ja [146]":z=1
6215 print"[145]"+jn$
6220 gosub3540:ifa$="n"thenprint"[147]":fora=1to4:k(a)=0:next:z=0:goto6005
6225 zn$="89":ok=ok+1
6230 ifk(5)>24andk(5)<35thenk(6)=600
6240 ifk(5)>34andk(5)<45thenk(6)=840
6245 ifk(5)>44andk(5)<55thenk(6)=1110
6250 ifk(5)>54andk(5)<65thenk(6)=1410
6260 ifk(5)>64andk(5)<75thenk(6)=1740
6270 ifk(5)>74andk(5)<85thenk(6)=2070
6280 ifk(5)>84andk(5)<91thenk(6)=2400
6290 ifk(5)>90andk(5)<101thenk(6)=2760
6300 ifk(3)=1thenk(10)=k(10)+7200:goto6335
6320 ifk(2)=1thenk(10)=k(10)+k(6):goto6335
6330 ifk(4)=1andk(5)>49thenk(10)=k(10)+k(6)
6335 ifk(1)=1thenk(10)=k(10)+720
6350 ifz=1andok<2thenprint"[147]":fora=1to4:k(a)=0:next:goto6005
6400 tp$="":tp=37:print"[147]":gosub5900
6405 print"[193]ngaben in [218]eile 92 + 91........(j/n) ?":gosub3550
6407 ifa$="n"thenprint"[145] keine[146] ":goto6450
6410 print"[193]ufw.fuer [200]aushaltshilfe oder [200]eim : "
6420 print"[196]auer der [194]elastung in [205]onaten [146]":gosub3570:gosub3770
6425 ify>12theny=0:print"[145][145][145][145]":goto6420
6427 k(12)=y
6430 print"[211]umme der [193]ufwendungen.......[196][205] [146]":gosub3570:gosub3770
6440 k(11)=y
6450 print"[193]ngaben in [218]eile 92 ............(j/n) ?":gosub3550
6460 jn$=" ja ":k(13)=1:ifa$="n"thenjn$=" keine":k(13)=0
6470 print"[145] "+jn$
6480 print"[193]ngaben in [218]eile 93 + 94 .......(j/n) ?":gosub3550
6490 ifa$="n"thenprint"[145] keine[146]":goto6540
6500 geta$:k(14)=val(a$):ifa$=chr$(13)then6540
6510 print"[193]nzahl in [218]eile 94 eingetr. [203]inder ";k(14);"[146]";
6515 ifa$=""then6500
6520 geta$:ifa$=chr$(13)then6540
6522 ifa$=chr$(20)thenk(14)=0:goto6500
6525 goto6520
6540 print"[193]ngaben in [218]eile 95 - 99 .......(j/n) ?":gosub3550
6550 ifa$="j"then6570
6560 print"[145] keine":goto6650
6570 print"[145][196]ie unterstuetzte [208]erson hatte : "
6580 print"[194]ruttoarbeitslohn............[196][205] [146]":gosub3570:gosub3770
6585 k(15)=y
6590 print"[210]enten.......................[196][205] [146]":gosub3570:gosub3770
6595 k(16)=y
6600 print"[214]ersorgungsbezuege...........[196][205] [146]":gosub3570:gosub3770
6605 k(17)=y
6610 print"[193]ufwand fuer die unterstuetzte [208]erson :"
6620 print".............................[196][205] [146]":gosub3570:gosub3770
6625 k(18)=y
6650 gosub3540:ifa$="n"thenfora=11to18:k(a)=0:next:goto6400
6655 ifk(11)>k(12)*100thenk(11)=k(12)*100
6660 ifk(13)=0then6680
6662 ifa(1)=1thenk(13)=540
6663 ifa(1)=0thenk(13)=720
6665 ifa(4)<3anda(4)>0thenk(13)=840
6670 ifa(4)>2thenk(13)=900+((a(4)-3)*60)
6680 k(14)=k(14)*600
6700 v(1)=k(15)+(k(17)*.6)-1644:k(16)=k(16)-200:v(2)=v(1)+k(16)
6715 v(3)=v(2)-360:ifv(3)<0thenv(3)=0
6730 v(4)=v(3)-4500:ifv(4)<0thenv(4)=0
6740 v(5)=4500-v(4):k(19)=v(5)
6750 ifk(18)>k(19)thenk(18)=k(19)
6755 gosub5900:print"[213]nterstuezten [211]ie [214]erwandte in der [196][196][210] ?";
6757 print"(j/n)":gosub3550
6760 ifa$="n"thenprint"[145] nein ":goto6775
6761 print"[198]olgende [193]ufwendungen werden"
6762 print"pauschal beruecksichtigt : ";
6763 print" * [196][205] 40,-- pro [208]aket"
6764 print" * [196][205] 30,-- pro [208]aeckchen"
6765 print" * [196][205] 50,-- pro [194]esuch in der [196][196][210]"
6766 print" * [196][205] 10,-- pro [194]esuch und [208]erson"
6768 print" aus der [196][196][210]"
6769 print"[193]lle hoeheren [193]ufwendungen nur mit entsperchendem [206]achweis!"
6770 print"[201]hre [193]ufwendungen in 1986 : "+d$:gosub3570:gosub3770
6775 gosub3540:ifa$="n"then6755
6780 k(18)=k(18)+y
6790 k$="1.":z=0:ok=0
6800 gosub5900:ifok=1thenz=1:goto6850
6810 print"[193]ngaben in [218]eile 101 - 112 (j/n) ?":gosub3550
6820 ifa$="j"then6850
6830 print"[145] keine[146]":gosub3540
6835 ifa$="n"then6800
6836 goto7100
6850 print"[193]usbildungsfreibetrag ("+k$+"[203]ind) "
6860 print"[203]ind aelter als 18 [202]ahre .......(j/n) ?":gosub3550
6865 a=0:jn$=" nein ":ifa$="j"thenjn$=" ja ":a=1
6870 print"[145] "+jn$
6890 print"[193]uswaertige [213]nterbringung.......(j/n) ?":gosub3550
6895 ifa$="n"anda=1thenk(20)=1800:jn$=" nein ":goto6910
6900 k(20)=3000:ifa$="j"anda=0thenk(20)=1200:jn$=" ja "
6910 print"[145] "+jn$
6915 ifa$="n"anda=0thenk(20)=0:print"[203]ein [198]reibetrag abzugsfaehig !":goto6990
6920 print"[196]as [203]ind hatte im [193]usbildungszeitraum :"
6930 print"[194]ruttoarbeitslohn............[196][205] [146]":gosub3570:gosub3770
6935 k(21)=y
6940 print"[193]usbildungsbeihilfe..........[196][205] [146]":gosub3570:gosub3770
6945 k(22)=y
6950 print"andere [197]inkuenfte/[194]ezuege....[196][205] [146]":gosub3570:gosub3770
6955 k(23)=y
6960 print"[196]auer der [193]usbildung in [205]onaten [146]":gosub3570:gosub3770
6970 ify>12thenprint"[145][145][145]":goto6960
6980 k(24)=y:ifz=1then7020
6990 ifok=0thenprint"[193]usbildungsfreibetr.fuer 2.[203]ind (j/n) ?";:gosub3550
7000 jn$=" nein ":ifa$="j"thenjn$=" ja ":z=1
7010 print"[145] "+jn$
7020 gosub3540:ifa$="n"thenfora=20to24:k(a)=0:next:z=0:goto6800
7030 v(6)=(k(20)/12)*k(24)
7040 v(7)=k(21)-4044:ifv(7)<0thenv(7)=0
7050 v(7)=v(6)-v(7)-k(22)-k(23):ifv(7)<0thenv(7)=0
7055 ifok=1thenk(26)=v(7):goto7100
7060 k(25)=v(7):k$="2.":ok=ok+1:ifz=1thenv(6)=0:v(7)=0:goto6800
7100 gosub5900
7110 print"[193]ngaben in [218]eile 109 - 113 .....(j/n) ?":gosub3550
7120 ifa$="j"then7150
7130 gosub5950
7135 goto 7170
7150 print"[145][203]inderbetreuungskosten [208]auschbetrag :"
7160 print"[194]eruecksichtigter [194]etrag min.[196][205] ":y=a(4)*480:gosub3770
7165 print" oder"
7167 print"[194]etrag laut [218]eile 113 .......[196][205] [146]":gosub3570:gosub3770
7168 k(27)=y:ify=0thenk(29)=a(4)*480:goto7170
7169 k(27)=k(27)-(a(4)*480):ifk(27)<0thenk(27)=0
7170 print"[146][193]ngaben in [218]eile 114 - 117......(j/n) ?":gosub3550
7180 ifa$="n"thengosub5950:goto7195
7190 print"[145] [193]ndere aussergewoehnliche [194]elastungen [146]"
7191 print"[211]umme der [193]ufwendungen total [196][205] [146]":gosub3570:gosub3770
7192 k(27)=k(27)+y
7194 print "[211]umme der [213]nterstuetzungen...[196][205] [146]":gosub3570:gosub3770
7195 gosub3540:ifa$="n"thenk(27)=0:k(28)=0:k(29)=0:goto7100
7196 :
7200 k(28)=y:a(43)=k(27)-k(28):ifk(27)<0thenk(27)=0
7205 k(30)=k(10)+k(11)+k(13)+k(14)+k(18)+k(25)+k(26)+k(29)
7210 return